Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d18/intrfc55.arc/TEST1.PAS

Pascal/Delphi Source File | 1990-02-25 | 715b | 55 lines

{$A-,B-,D+,E-,F-,I+,L+,N+,O-,R-,S+,V+}
{$M 16384,0,655360}
unit test1;

interface

uses objects;

const
  w : word = 3;

type obj = object(base)
  procedure firstproc; virtual;
  procedure secondproc; virtual;
end;


type rec = record
  junk : word;
end;

function f:byte;

implementation
var
  o : obj;

type descend = object(obj)
  procedure firstproc; virtual;
  procedure thirdproc; virtual;
end;

procedure obj.firstproc;
begin
end;
procedure obj.secondproc;
begin
  writeln('hi');
end;
procedure descend.firstproc;
begin
  writeln('hi');
end;
procedure descend.thirdproc;
begin
  writeln('hi');
end;

function f;
begin
  f := 1;
end;
begin
  w := 4;
end.